home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Utilities / Siege Watch 2.0 / Globals.p < prev    next >
Encoding:
Text File  |  1994-04-23  |  1.1 KB  |  58 lines  |  [TEXT/PJMM]
  1. { This file contains the global variables for Siege Watch }
  2. unit Globals;
  3. interface
  4.     uses
  5.         Speech;
  6.     const
  7. { ranges used by the sliders used in the setup dialog }
  8.         MIN_PITCH = 35.0;
  9.         MAX_PITCH = 65.0;
  10.  
  11.         MIN_WPM = 100.0;
  12.         MAX_WPM = 200.0;
  13.  
  14.         MIN_VOL = 0.0;
  15.         MAX_VOL = 1.0;
  16.  
  17.         MIN_MOD = 0.0;
  18.         MAX_MOD = 100;
  19.  
  20.         BASE_RES_ID = 400;
  21.  
  22. { type definition used by the preference file }
  23.     type
  24.         PrefRecord = record
  25.                 version: LONGINT;
  26.                 location: Point;
  27.                 zoomed: Boolean;
  28.                 chimed: Boolean;
  29.                 sayDays: Boolean;
  30.                 sayHours: Boolean;
  31.                 sayBites: Boolean;
  32.                 pitch: Fixed;
  33.                 wpm: Fixed;
  34.                 voice: VoiceSpec;
  35.                 volume: Fixed;
  36.                 modulation: Fixed;
  37.                 biteFreq: integer;
  38.                 useSysVoice: Boolean;
  39.                 useDaemon: Boolean;
  40.                 keepVoice: Boolean;
  41.                 unused2: integer;
  42.                 unused3: LONGINT;
  43.             end;
  44.     var
  45.         gSpeechAvailable: Boolean;
  46.         gColorAvailable: Boolean;
  47.         gWindow: WindowPtr;
  48. { global preference variables }
  49.         gPreferences: PrefRecord;
  50.         gFPUAvailable: Boolean;
  51. { have I proclaimed inaugeration day? }
  52.         gChimed: Boolean;
  53.         gDone: Boolean;
  54. { most recent depth used in drawing offscreen }
  55.         gDepth: integer;
  56.         gZoomCtl: ControlHandle;
  57. implementation
  58. end.